Xbasic
SQL::ResultSetToDBF Method
Syntax
Result as L = ToDBF(FileName as C [, EventScript = as C [, Rows = -1 as N [, StartRow = -1 as N [, Append = .t. as L [, DictionaryName = as C [, MapByPosition = .f. as L [, TableInfo as SQL::TableInfo]]]]]]])
Arguments
- FileNameCharacter
The path and filename of the Alpha Anywhere table.
- EventScriptCharacter
Default = "". An Xbasic Script implementing any of the following functions. In each case, the Context argument is the connection itself.
- UpdateBegin()
- UpdateProgress()
- UpdateEnd()
- RowsNumeric
Default = -1 (all). The number of rows to copy.
- StartRowNumeric
Default = -1 (first row). The first row to copy.
- AppendLogical
Default = .t.. Whether to overwrite the existing data.
- DictionaryNameCharacter
Default = "". Internal use only.
- MapByPositionLogical
Default = .f.. Maps by position.
- TableInfoSQL::TableInfo
Default = null_value(). Table info.
Returns
- ResultLogical
Returns .t. if successful. Otherwise .f..
Description
Create a local copy of the result set in a .DBF table
Discussion
The SQL::ResultSet.ToDBF() method fetches rows to a new or overwritten local DBF table.
Example
dim conn as SQL::Connection
dim sql as C
dim country as C
dim args as SQL::Arguments
dim cs as C
dim rs as SQL::ResultSet
cs = "::Name::AADemo-Northwind"
country = ui_get_text("Country", "Show Companies in what country?")
sql = "select contactname from customers where country = :country"
if .not. conn.open(cs)
ui_msg_box("Error", conn.CallResult.text)
end
end if
if .not. args.Set("country", country)
conn.close()
end
end if
if .not. conn.execute(sql, args)
ui_msg_box("Error", conn.CallResult.text)
conn.close()
end
end if
rs = conn.ResultSet
if .not. rs.ToDBF("C:\Users\YOUR_USER_NAME\Documents\newtable.dbf", "", 3, 1 )
ui_msg_box("Error", rs.CallResult.text)
end if
conn.close()Limitations
Not supported on Community Edition